{$CLEO} 
0000: 
while true 
    wait 0   
    if 
        Player.Defined(0) 
    then
        if  
            Actor.Driving($3)  
        then 
            0811: 0@ = actor $3 car   
            02E3: 1@ = car 0@ speed   
            if and  
                1@ < 5.0  
                00E1: player 0 pressed_key 16   
            then  
                camera.Shake(30)
            end
        end
    end
end